home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / isconn_1 / main.frm < prev    next >
Text File  |  1999-08-31  |  7KB  |  239 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Begin VB.Form clipa 
  6.    BorderStyle     =   5  'Sizable ToolWindow
  7.    Caption         =   "Mostafa Live pictures"
  8.    ClientHeight    =   5985
  9.    ClientLeft      =   60
  10.    ClientTop       =   300
  11.    ClientWidth     =   6045
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5985
  17.    ScaleWidth      =   6045
  18.    ShowInTaskbar   =   0   'False
  19.    Begin MSComctlLib.ProgressBar ProgressBar1 
  20.       Align           =   2  'Align Bottom
  21.       Height          =   150
  22.       Left            =   0
  23.       TabIndex        =   3
  24.       Top             =   5835
  25.       Width           =   6045
  26.       _ExtentX        =   10663
  27.       _ExtentY        =   265
  28.       _Version        =   393216
  29.       Appearance      =   1
  30.       Min             =   7
  31.       Max             =   8
  32.    End
  33.    Begin VB.Timer Timer1 
  34.       Interval        =   1
  35.       Left            =   960
  36.       Top             =   4560
  37.    End
  38.    Begin VB.PictureBox Picture1 
  39.       Align           =   1  'Align Top
  40.       Appearance      =   0  'Flat
  41.       BackColor       =   &H80000005&
  42.       ForeColor       =   &H80000008&
  43.       Height          =   1035
  44.       Left            =   0
  45.       Picture         =   "main.frx":0000
  46.       ScaleHeight     =   1005
  47.       ScaleWidth      =   6015
  48.       TabIndex        =   1
  49.       Top             =   0
  50.       Width           =   6045
  51.    End
  52.    Begin MSComctlLib.ListView ListView1 
  53.       Height          =   3015
  54.       Left            =   0
  55.       TabIndex        =   0
  56.       Top             =   1080
  57.       Width           =   3495
  58.       _ExtentX        =   6165
  59.       _ExtentY        =   5318
  60.       LabelWrap       =   -1  'True
  61.       HideSelection   =   -1  'True
  62.       FlatScrollBar   =   -1  'True
  63.       HotTracking     =   -1  'True
  64.       HoverSelection  =   -1  'True
  65.       _Version        =   393217
  66.       Icons           =   "ImageList1"
  67.       SmallIcons      =   "ImageList1"
  68.       ColHdrIcons     =   "ImageList1"
  69.       ForeColor       =   -2147483640
  70.       BackColor       =   -2147483643
  71.       BorderStyle     =   1
  72.       Appearance      =   1
  73.       NumItems        =   0
  74.    End
  75.    Begin MSComctlLib.ImageList ImageList1 
  76.       Left            =   0
  77.       Top             =   3960
  78.       _ExtentX        =   1005
  79.       _ExtentY        =   1005
  80.       BackColor       =   -2147483643
  81.       ImageWidth      =   48
  82.       ImageHeight     =   48
  83.       MaskColor       =   12632256
  84.       _Version        =   393216
  85.    End
  86.    Begin InetCtlsObjects.Inet Inet1 
  87.       Left            =   0
  88.       Top             =   3720
  89.       _ExtentX        =   1005
  90.       _ExtentY        =   1005
  91.       _Version        =   393216
  92.       Protocol        =   4
  93.       RemoteHost      =   "www.microsoft.com"
  94.       URL             =   "http://www.microsoft.com"
  95.       RequestTimeout  =   420
  96.    End
  97.    Begin RichTextLib.RichTextBox RichTextBox1 
  98.       Height          =   2175
  99.       Left            =   720
  100.       TabIndex        =   2
  101.       Top             =   1920
  102.       Visible         =   0   'False
  103.       Width           =   5535
  104.       _ExtentX        =   9763
  105.       _ExtentY        =   3836
  106.       _Version        =   393217
  107.       TextRTF         =   $"main.frx":19A6A
  108.    End
  109. End
  110. Attribute VB_Name = "clipa"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115. Dim xx As Integer
  116.  
  117. Function IsConnected() As Boolean
  118. On Error Resume Next
  119.  
  120.     Dim TRasCon(255) As RASCONN95
  121.     Dim lg As Long
  122.     Dim lpcon As Long
  123.     Dim RetVal As Long
  124.     Dim Tstatus As RASCONNSTATUS95
  125.  
  126.     TRasCon(0).dwSize = 412
  127.     lg = 256 * TRasCon(0).dwSize
  128.    
  129.     RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
  130.  
  131.  
  132.     If RetVal <> 0 Then
  133.         MsgBox "ERROR"
  134.         Exit Function
  135.     End If
  136.  
  137.    
  138.     Tstatus.dwSize = 160
  139.     RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
  140.  
  141.  
  142.     If Tstatus.RasConnState = &H2000 Then
  143.         IsConnected = True
  144.     Else
  145.         IsConnected = False
  146.     End If
  147.  
  148. End Function
  149. Sub getpicture()
  150. Dim b() As Byte
  151. Dim xx
  152. Dim strURL As String
  153. Dim a As String
  154. Screen.MousePointer = 11
  155.  
  156.  
  157.  
  158. RichTextBox1.Text = Inet1.OpenURL("http://www.geocities.com/ResearchTriangle/Campus/4598/clip1art.txt")
  159. RichTextBox1.SaveFile App.Path & "\clip2.txt", 0
  160. RichTextBox1.LoadFile App.Path & "\clip2.txt", 0
  161. RichTextBox1.SaveFile App.Path & "\clip1.txt", 1
  162.  
  163.  
  164.  
  165. Dim freef As Integer
  166. Dim nooo As Integer
  167. freef = FreeFile
  168. Open App.Path & "\clip1.txt" For Input As #freef
  169. Do
  170. Input #freef, a, strURL
  171. b() = Inet1.OpenURL(strURL, icByteArray)
  172. nooo = FreeFile
  173. Open App.Path & "\temp.tmp" For Binary Access Write As #nooo
  174. Put #nooo, , b()
  175. Close #nooo
  176. xx = xx + 1
  177. ImageList1.ListImages.Add xx, , LoadPicture(App.Path & "\temp.tmp")
  178. ListView1.ListItems.Add xx, , , xx, xx
  179. Loop Until EOF(freef)
  180. Close #freef
  181. Screen.MousePointer = 0
  182. End Sub
  183. Private Sub Command1_Click()
  184.  
  185. End Sub
  186.  
  187. Private Sub Command2_Click()
  188.  
  189. End Sub
  190.  
  191. Private Sub Form_Resize()
  192. On Error Resume Next
  193. ListView1.Width = Me.ScaleWidth
  194. ListView1.Height = Me.Height - ListView1.Top - ProgressBar1.Height - 10
  195. End Sub
  196.  
  197. Private Sub Inet1_StateChanged(ByVal State As Integer)
  198. On Error Resume Next
  199. If State >= 7 Then
  200. ProgressBar1.Value = State
  201. End If
  202. End Sub
  203.  
  204. Private Sub ListView1_Click()
  205. On Error GoTo er
  206. imagemax = imagemax + 1
  207. Load Form1.Image1(imagemax)
  208. SavePicture ImageList1.ListImages.Item(ListView1.SelectedItem.Index).Picture, App.Path & "\imagelive" & ListView1.SelectedItem.Index & imagemax & ".bmp"
  209. Form1.Image1(imagemax).Picture = LoadPicture(App.Path & "\imagelive" & ListView1.SelectedItem.Index & imagemax & ".bmp")
  210. Form1.Image1(imagemax).ToolTipText = App.Path & "\imagelive" & ListView1.SelectedItem.Index & imagemax & ".bmp"
  211. Form1.Image1(imagemax).Visible = True
  212. Form1.Image1(imagemax).Left = 0
  213. Form1.Image1(imagemax).Top = 0
  214. Form1.Image1(imagemax).Stretch = True
  215. Form1.Image1(imagemax).ZOrder 0
  216. Dim str1 As String
  217. Dim str2 As String
  218. indexctrl = imagemax
  219. changes = True
  220. Exit Sub
  221. er:
  222. If Err.Number <> 32755 Then
  223. MsgBox Err.Description
  224. End If
  225. End Sub
  226.  
  227. Private Sub Timer1_Timer()
  228. On Error Resume Next
  229. If IsConnected = False Then
  230. MsgBox "You must connect to internet before open Mostafa live pictures"
  231. Unload Me
  232. Exit Sub
  233. Else
  234. getpicture
  235. Form_Resize
  236. End If
  237. Timer1.Enabled = False
  238. End Sub
  239.